home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / autonum.arc / AUTONUM.DOC < prev    next >
Encoding:
Text File  |  1986-12-01  |  1.8 KB  |  49 lines
  1.  
  2.                                AUTONUMBERING
  3.                                 USING A FORM
  4.                              IN RBASE SYSTEM V
  5.  
  6. THIS PROCEDURE OUTLINES THE STEPS TO BE TAKEN TO INSTALL AN AUTOMATIC NUMBERER
  7. IN YOUR ENTRY FORM.  BE SURE YOU HAVE THE FOLLOWING FILES:
  8.  
  9.                              NUMBER1.RBF
  10.                              NUMBER2.RBF
  11.                              NUMBER3.RBF
  12.                              AUTO.APP
  13.  
  14. REQUIREMENTS:
  15.          - AN INTEGER COLUMN IN YOUR TABLE (CALLED ID# IN THIS EXAMPLE)
  16.          - A COMPUTED COLUMN WITH THE EXPRESSION (1*1) AND TYPED AS INTEGER
  17.            (NAMED FLAG IN THIS EXAMPLE)
  18.  
  19.          - A COMMAND FILE THAT COMPUTES THE MAXIMUM NUMBER AND INCREMENTS IT
  20.            BY 1. (THE AUTO.APP FILE)
  21.  
  22. STEPS:
  23.          1) EXPAND YOUR TABLE WITH AN INTEGER COLUMN (TO STORE THE NUMBER
  24.             IN) (CALLED ID# IN THIS EXAMPLE)
  25.          2) EXPAND YOUR TABLE WITH A COMPUTED COLUMN, TYPED AS INTEGER, WITH
  26.             THE EXPRESSION 1*1 (CALLED FLAG IN THIS EXAMPLE)
  27.          3) IN FORMS EXPRESS, DEFINE THE FOLLOWING VARIABLES:
  28.  
  29.                    ID# INTEGER
  30.                    CNTR INTEGER
  31.                    MAXID INTEGER
  32.                    ID# = (IFEQ('FLAG',1,'ID#',(.CNTR + .MAXID + 1 )))
  33.                    CNTR = (IFEQ('FLAG',1,.CNTR,(.CNTR + 1)))
  34.  
  35.          4) LOCATE THE VARIABLE, ID#, ON YOUR FORM.
  36.  
  37.          5) IN RBEDIT, EDIT THE AUTO.APP COMMAND FILE, CHANGING THE TABLE NAME
  38.             (TABLE1 IN THIS EXAMPLE) AND THE FORM NAME (NUMBER IN THIS EXAMPLE)
  39.             TO MATCH YOUR TABLE NAME AND FORM NAME.
  40.  
  41.          6) AT THE R:> PROMPT, TYPE: SET ZERO ON
  42.  
  43.          7) AT THE R:> PROMPT, TYPE: RUN AUTO.APP
  44.  
  45. NOW, EVERYTIME YOU ENTER A ROW USING THIS FORM, THE ROW NUMBER/ID NUMBER WILL
  46. BE STORED IN YOUR TABLE AND BE INCREMENTED BY ONE.
  47.  
  48.  
  49.